home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / GSAVE2.ZIP / PASCAL.ZIP / GSTPU.PAS < prev    next >
Pascal/Delphi Source File  |  1995-12-03  |  611b  |  40 lines
  1. {$F+,A+,G+,S+}
  2. unit gstpu ;
  3.  
  4. interface
  5.  
  6. procedure load_gs_file;
  7. procedure initialise_vga;
  8. procedure initialise_text_mode;
  9. procedure wait_key;
  10.  
  11. implementation
  12. {$F+}
  13. {$L gsobj.obj}
  14.  
  15. procedure setup_vga;             external;
  16. procedure load_screengs;         external;
  17.  
  18. procedure initialise_vga; assembler;
  19. asm
  20.     call    setup_vga
  21. end;
  22.  
  23. procedure initialise_text_mode; assembler;
  24. asm
  25.     mov     ax,$0003
  26.     int     $10
  27. end;
  28.  
  29. procedure load_gs_file; assembler;
  30. asm
  31.     call    load_screengs
  32. end;
  33.  
  34. procedure wait_key; assembler;
  35. asm
  36.         xor     ah,ah
  37.         int     $16
  38. end;
  39. end.
  40.